
 1000           .OR $B037
 1010           .TF B.WRTDIR
 1020  *--------------------------------
 1030  BUFSTHI  .EQ $AAC6
 1040  BUFSTLO  .EQ $AAC5
 1050  CALLRWTS .EQ $B052
 1060  IOBBUF   .EQ $B7F0
 1070  RW       .EQ 2
 1080  SC       .EQ $B398
 1090  TK       .EQ $B397
 1100  *--------------------------------
 1110  WRTDIR   JSR SETBUFAD
 1120           LDX TK
 1130           LDY SC
 1140           LDA #RW
 1150           JMP CALLRWTS
 1160  *--------------------------------
 1170  SETBUFAD LDA BUFSTLO     PUT BUFFER'S
 1180           STA IOBBUF      STARTING ADDRESS IN
 1190           LDA BUFSTHI     INPUT OUTPUT BLOCK
 1200           STA IOBBUF+1
 1210           RTS

